home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / ada / gnat1792.zip / gnat179b / t-adainc / a-stwifi.ads < prev    next >
Text File  |  1994-05-19  |  9KB  |  223 lines
  1. ------------------------------------------------------------------------------
  2. --                                                                          --
  3. --                         GNAT RUNTIME COMPONENTS                          --
  4. --                                                                          --
  5. --               A D A . S T R I N G S . W I D E _ F I X E D                --
  6. --                                                                          --
  7. --                                 S p e c                                  --
  8. --                                                                          --
  9. --                            $Revision: 1.4 $                              --
  10. --                                                                          --
  11. --           Copyright (c) 1992,1993,1994 NYU, All Rights Reserved          --
  12. --                                                                          --
  13. -- GNAT is free software;  you can  redistribute it  and/or modify it under --
  14. -- terms of the  GNU General Public License as published  by the Free Soft- --
  15. -- ware  Foundation;  either version 2,  or (at your option) any later ver- --
  16. -- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
  17. -- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
  18. -- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
  19. -- for  more details.  You should have  received  a copy of the GNU General --
  20. -- Public License  distributed with GNAT;  see file COPYING.  If not, write --
  21. -- to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. --
  22. --                                                                          --
  23. ------------------------------------------------------------------------------
  24.  
  25.  
  26. with Ada.Strings.Wide_Maps;
  27. with Ada.Strings.Wide_Search;
  28.  
  29. package Ada.Strings.Wide_Fixed is
  30.  
  31.    Blank : constant Wide_Character := ' ';
  32.    Pad   : constant Wide_Character := ' ';
  33.  
  34.    -------------------------------------------------------------------
  35.    -- Copy Procedure for Wide_Strings of Possibly Different Lengths --
  36.    -------------------------------------------------------------------
  37.  
  38.    procedure Move (Source  : in  Wide_String;
  39.                    Target  : out Wide_String;
  40.                    Drop    : in  Truncation := Error;
  41.                    Justify : in  Alignment  := Left;
  42.                    Pad     : in  Wide_Character  := Wide_Fixed.Pad);
  43.  
  44.    ------------------------
  45.    -- Search Subprograms --
  46.    ------------------------
  47.  
  48.    --  Note: in this implementation, these search subprograms are in a
  49.    --  separate package Ada.Strings.Wide_Search. The declarations are
  50.    --  thus replaced by renamings of these routines (which is perfectly valid
  51.    --  since it is semantically undetectable that we have renamings here
  52.    --  rather than "real" subprogram declarations).
  53.  
  54.    function Index (Source   : in Wide_String;
  55.                    Pattern  : in Wide_String;
  56.                    Going    : in Direction := Forward;
  57.                    Mapping  : in Wide_Maps.Wide_Character_Mapping
  58.                                   := Wide_Maps.Identity)
  59.      return Natural
  60.      renames Ada.Strings.Wide_Search.Index;
  61.  
  62.    function Index (Source   : in Wide_String;
  63.                    Pattern  : in Wide_String;
  64.                    Going    : in Direction := Forward;
  65.                    Mapping  : in Wide_Maps.Wide_Character_Mapping_Function)
  66.      return Natural
  67.      renames Ada.Strings.Wide_Search.Index;
  68.  
  69.    function Index (Source : in Wide_String;
  70.                    Set    : in Wide_Maps.Wide_Character_Set;
  71.                    Test   : in Membership := Inside;
  72.                    Going  : in Direction  := Forward)
  73.      return Natural
  74.      renames Ada.Strings.Wide_Search.Index;
  75.  
  76.  
  77.    function Index_Non_Blank (Source : in Wide_String;
  78.                              Going  : in Direction := Forward)
  79.      return Natural
  80.      renames Ada.Strings.Wide_Search.Index_Non_Blank;
  81.  
  82.    function Count (Source   : in Wide_String;
  83.                    Pattern  : in Wide_String;
  84.                    Mapping  : in Wide_Maps.Wide_Character_Mapping
  85.                                      := Wide_Maps.Identity)
  86.      return Natural
  87.      renames Ada.Strings.Wide_Search.Count;
  88.  
  89.    function Count (Source   : in Wide_String;
  90.                    Pattern  : in Wide_String;
  91.                    Mapping  : in Wide_Maps.Wide_Character_Mapping_Function)
  92.      return Natural
  93.      renames Ada.Strings.Wide_Search.Count;
  94.  
  95.    function Count (Source   : in Wide_String;
  96.                    Set      : in Wide_Maps.Wide_Character_Set)
  97.      return Natural
  98.      renames Ada.Strings.Wide_Search.Count;
  99.  
  100.    procedure Find_Token (Source : in Wide_String;
  101.                          Set    : in Wide_Maps.Wide_Character_Set;
  102.                          Test   : in Membership;
  103.                          First  : out Positive;
  104.                          Last   : out Natural)
  105.      renames Ada.Strings.Wide_Search.Find_Token;
  106.  
  107.    -----------------------------------------
  108.    -- Wide_String Translation Subprograms --
  109.    -----------------------------------------
  110.  
  111.    function Translate (Source  : in Wide_String;
  112.                        Mapping : in Wide_Maps.Wide_Character_Mapping)
  113.       return Wide_String;
  114.  
  115.    procedure Translate (Source  : in out Wide_String;
  116.                         Mapping : in Wide_Maps.Wide_Character_Mapping);
  117.  
  118.    function Translate (Source  : in Wide_String;
  119.                        Mapping : in Wide_Maps.Wide_Character_Mapping_Function)
  120.       return Wide_String;
  121.  
  122.    procedure Translate (Source  : in out Wide_String;
  123.                         Mapping :
  124.                           in Wide_Maps.Wide_Character_Mapping_Function);
  125.  
  126.    --------------------------------------------
  127.    -- Wide_String Transformation Subprograms --
  128.    --------------------------------------------
  129.  
  130.    function Replace_Slice
  131.       (Source   : in Wide_String;
  132.        Low      : in Positive;
  133.        High     : in Natural;
  134.        By       : in Wide_String)
  135.       return Wide_String;
  136.  
  137.    procedure Replace_Slice
  138.       (Source   : in out Wide_String;
  139.        Low      : in Positive;
  140.        High     : in Natural;
  141.        By       : in Wide_String;
  142.        Drop     : in Truncation := Error;
  143.        Justify  : in Alignment  := Left;
  144.        Pad      : in Wide_Character  := Wide_Fixed.Pad);
  145.  
  146.  
  147.    function Insert (Source   : in Wide_String;
  148.                     Before   : in Positive;
  149.                     New_Item : in Wide_String)
  150.       return Wide_String;
  151.  
  152.    procedure Insert (Source   : in out Wide_String;
  153.                      Before   : in Positive;
  154.                      New_Item : in Wide_String;
  155.                      Drop     : in Truncation := Error);
  156.  
  157.  
  158.    function Overwrite (Source   : in Wide_String;
  159.                        Position : in Positive;
  160.                        New_Item : in Wide_String)
  161.       return Wide_String;
  162.  
  163.    procedure Overwrite (Source   : in out Wide_String;
  164.                         Position : in Positive;
  165.                         New_Item : in Wide_String;
  166.                         Drop     : in Truncation := Right);
  167.  
  168.  
  169.    function Delete (Source  : in Wide_String;
  170.                     From    : in Positive;
  171.                     Through : in Natural)
  172.       return Wide_String;
  173.  
  174.    procedure Delete (Source  : in out Wide_String;
  175.                      From    : in Positive;
  176.                      Through : in Natural;
  177.                      Justify : in Alignment := Left;
  178.                      Pad     : in Wide_Character := Wide_Fixed.Pad);
  179.  
  180.    --------------------------------------
  181.    -- Wide_String Selector Subprograms --
  182.    --------------------------------------
  183.  
  184.    function Trim
  185.       (Source : in Wide_String)
  186.       return Wide_String;
  187.  
  188.    function Trim
  189.       (Source : in Wide_String;
  190.        Left   : in Wide_Maps.Wide_Character_Set;
  191.        Right  : in Wide_Maps.Wide_Character_Set)
  192.       return Wide_String;
  193.  
  194.    procedure Trim
  195.       (Source  : in out Wide_String;
  196.        Left    : in Wide_Maps.Wide_Character_Set;
  197.        Right   : in Wide_Maps.Wide_Character_Set;
  198.        Justify : in Alignment := Ada.Strings.Left;
  199.        Pad     : in Wide_Character := Wide_Fixed.Pad);
  200.  
  201.  
  202.    function